home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Configs / Thor FTP-Mail.intro < prev    next >
Encoding:
Text File  |  1998-03-15  |  845 b   |  50 lines
  1. /* ARexx - FTP-Mail-Request for Thor
  2.  *
  3.  * Script generated by RecentScript
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. SAY "Searching Thor ARexx port..."
  9.  
  10. IF ~SHOW(PORTS,'BBSREAD') THEN DO
  11.    ADDRESS COMMAND 'run <>NIL: `GetEnv THOR/THORPath`bin/LoadBBSRead'
  12.  
  13.    DO 20 WHILE ~SHOW(PORTS,'BBSREAD')
  14.       ADDRESS COMMAND 'SYS:Rexxc/WaitForPort BBSREAD'
  15.    END
  16.  
  17.    IF RC = 5 THEN DO
  18.      SAY "failed"
  19.      EXIT
  20.    END
  21.    stopthor = 1
  22. END
  23.  
  24. SAY "succeeded"
  25.  
  26. SAY "Getting BBS Data..."
  27.  
  28. ADDRESS 'BBSREAD'
  29.  
  30. drop DATA.
  31.  
  32. GETBBSDATA bbsname %5 stem DATA
  33.  
  34. IF(rc ~= 0)THEN DO
  35.    SAY BBSREAD.LASTERROR
  36.    EXIT
  37. END
  38.  
  39. SAY "succeeded"
  40.  
  41. SAY "Creating mail..."
  42.  
  43. messagenumber = 0
  44.  
  45. DO WHILE EXISTS(DATA.BBSPATH || RS || messagenumber || .temp)
  46.    messagenumber = messagenumber + 1
  47. END
  48.  
  49. ADDRESS COMMAND 'echo >'DATA.BBSPATH'RS'messagenumber'.temp "begin*Nuuencode*Nreply-to %1*Nsize %4"'
  50.